Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Է As Range
    Dim  As Range
    Dim 丮 As Range
    
    Set Է = Range("B3")
    Set  = Range("C3")
    
    If Not Intersect(Target, Է) Is Nothing Then
        
        If Len(Է.Value) = 0 Then Exit Sub
        
        If IsNumeric(Է.Value) Then
        
            Application.EnableEvents = False
        
                .Value = .Value + Է.Value
                Է.ClearContents
            
            Application.EnableEvents = True

        End If
        
    End If
  
End Sub